#!/usr/bin/guile -s
!#


(define addx 
	(lambda (a b)
		(+ a b)))

(display (addx 10 20))
(newline)


(
define multiply
	(lambda (a b) (* a b))
)

(display (multiply 300 300))
(newline)

(
define 
	(denomite a b)
	(/ a b)
)

(display (denomite 20 10))
(newline)

(define fix 
	(lambda (x y z)
		(define add 
			(lambda (a b) (+ a b)))
	(- x (add y z))))

(display (fix 100 20 30))
(newline)


(define
	(sayhello args)
	(display "hello world")
	(display args)
)

(sayhello "xing wenju")
